﻿Imports Microsoft.VisualBasic
Imports System.Data

Public Class clsTipoEmpaque
    Inherits clsDatos

    Function Get_TipoEmpaques(ByVal strRama As String) As DataTable

        'Return GetDatos("select * from TipoEmpaque order by tipoempaque")
        Return GetDatos("select distinct UPPER(TipoEmpaque) TipoEmpaque from art where rama='" & strRama & "' order by tipoempaque")

    End Function

    Function Get_TipoEmpaques(ByVal strRama As String, ByVal strTipoEmpaque As String) As DataTable

        'Return GetDatos("Select * from TipoEmpaque where rama='" & strRama & "' and tipoempaque like '" & strTipoEmpaque & "'")
        Return GetDatos("Select distinct UPPER(TipoEmpaque) TipoEmpaque from art where rama='" & strRama & "' and tipoempaque like '" & strTipoEmpaque & "'")

    End Function
End Class
